<%
Option Explicit

Dim fso, arquivo, saida
Set fso = Server.CreateObject("Scripting.FileSystemObject")
For Each arquivo In fso.GetFolder(Server.MapPath(".")).Files
    If Right(arquivo.name, 3) = "xml" Then
        saida = saida & """" & Left(arquivo.name, Len(arquivo.name)-4) & ""","
    End If
Next

Response.Write "[" & Left(saida, Len(saida)-1) & "]"
%>
